a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
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**F [LE®*1D**FORREADSN 


FFFFFFFFFE 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE ARAAAA DDDDDDDD 
FFFFFFFFFF 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD 
FF 00 O02 RR RR RR RR EE AA AA DD 

FF 00 00 RR RR RR RR EE AA AA 0D 

FF 00 00 RR RR RR RR EE AA AA DD 

FF 00 00 RR RR RR RR EE Ab AA DD 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA DD 
FFFFFFFF 00 O00 RRRRRRRR RRRRRRRR EEEEEEEE Ba AA DD 

FF 00 OO RR RR RR RR EE AAAAAAAAAA DD 

FF 00 OO RR RR RR RR EE AAAAAAAAAA DD 

FF 00 0O RR RR RR RR EE AA AA 0D 

FF RR RR RR RR EE AA AA DD DD 
FF 000000 RR RR_ RR RR EEEEEEEEEE AA AA DDDDDDDD 
FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD 
LL IIIII] SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] Sh) 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLELLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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5 tabs $332 $6 Yen Macro V04-00 P 
6-SEP=1984 10:59:3 FORRTL. SRCIFORREADSN.MAR; 1 

~ TITLE FORSAEAD_SN - FORTRAN READ Sequential NAMELIST 

-IDENT /1-001/ ; File: FORREADSN.MAR, Edit: SBL1001 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


Mem <w 


0 
R PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


A 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS "iho 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


LITY 
S NOT SUPPLIED BY DIGITAL. 


. . . . . * . . 
seeneeeeeeeeeeeeeeees 


Zo 

; FACILITY: FORTRAN Language Support 

: ABSTRACT: 

: This module contains FORSREAD_SN, the user interface to the FORTRAN 

3 1/0 Run-Time Library which begins a READ NAMELIST statement. 

: ENVIRONMENT: Runs at any access mode, AST Reentrant 

; MAINTENANCE NOTE: 

: The transfer vector (RTLVECTOR+ALLGBL) must have the following: 

: . TRANSFER FORSREAD_SN 

3 MASK FORS$IO BEG 

: JMP FORSREAD_SN+2 

: This puts the correct mask in entry vector, that is FORS$$IO_BEG entry mask. 
: Furthermore this module must only use RO and 

3 since any other register might not be in the entry mask for FORS$IO_BEG. 
: AUTHOR: Steven B. Lionel, CREATION DATE: 21-July-1980 

: MODIFIED BY: 

: 1-001 = Original. SBL 21-July-1980 


ita lta haat anaemia at 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


FOR THE USE OR RELIABILITY OF ITS 


Se ee 
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FORSREAD_SN = FORTRAN READ Sequential NAMELIST 15-SEP-1984 23:59:42 VA 
1-001 = 2i 8b 188t 93528;36 Hf 


acro Vv04-00 Pa | 
DECLARATIONS « SRC JFORREADSN.MAR; 1 ” 3) 


H ~SBTTL DECLARATIONS 
33 : LIBRARY MACRO CALLS: 
: 61 ; SISBDEF ; Intra-statement block definitions 
000 63 ; EXTERNAL DECLARATIONS: 
000 65° -DSABL GBL ; Force all external symbols to be declared 
000 66 -EXTRN FORSSI Common initialization routine 
000 67 eEXTRN FORSSUDFe EN Ro FORSS SSUDF _RNO : To pull in weak references 
9000 68 EXTRN FORSSREC “RSNO, FORSSREC_RSN1 : To pull in weak references 
0000 70; 
0000 #71 : MACROS: 
0000 ¢ : 
0000 73: NONE 
0000 «7%: 
0000 75 : EQUATED SYMBOLS: 
0000 76: 
0000 77: NONE 
0000 78: 
0000 79 ; OWN STORAGE: 
0000 80: 
0000 «81: NONE 
0000 8¢ ; 
3000 83 ; PSECT DECLARATIONS: 
00000000 = s«agSs -PSECT _FORSCODE PIC, USR, CON, REL, LCL, SHR, - 
9000 86 EXE, RD, NOWRT. LONG 


= FORTRAN READ Sequential wamevist ° 15-SEP-1984 23:59:4 AX/VMS Macro V04-00 Page ; 
FORSREAD_SN = READ sequential NAMELIST 66-SEP-1984 10:59:3 FORRTL.SRCJFORREADSN.MAR; 1 (3) | 


Pye -SBTTL FORSREAD_SN = READ sequential NAMELIST 
; FUNCTIONAL DESCRIPTION: 
; This routine begins a FORTRAN READ NAMELIST statement. 
; CALLING SEQUENCE: 
CALL FORSREAD_SN (unit.rl.v, namelist.rlu.ra C, err_eql.j.r C, end_eql.j.rJ] 
: FORMAL PARAMETERS: | 
: unit 
namelist 


err_eql 
end_eql 


eqrees unit number 

ress of namelist descriptor ptock (see below) 
aairaea of instruction to branch to if an error occurs 
penreee instruction to branch to if an end-of-file 
s foun 


IMPLICIT INPUTS: 
; NONE 

; IMPLICIT OUTPUTS: 

; NONE 

; COMPLETION STATUS: 

; NONE 

SIDE EFFECTS: 

; One READ NAMELIST statement will be executed. 


FORSREAD_SN:: 
“MASK FORS$IO BEG 
MOVZBL #ISB$K 39 TY_RSN, RO ; Move statement type 
JMP G*FORSSIO- “BEG+2 ; Jump to FORS$$IO G 


-END ; End of module FORSREAD_SN 
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00000002°GF 17 
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be te WN ee eel wel ela le lolol wleololololeleleoleleleloleleololeoleleololeloala! 
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SOOCOCCOOOCOSOOSOSOOSOSOSOSOOSOSOOSOOOCOOOOOOOOOOoOoOO 
SOOO COCOCOCOOCOOOCOCSCOSOSOCOOCSOOOOOOOOCOOOOSOOOOOoOO 
SOW NAUNE WIN @ OOO NAUE WN O OO NOAUE WO O@NOAUES W000 
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M 
FORSREAD_SN = FORTRAN READ Sequential NAMELIST 


Symbol table 
FORSSIO BEG geeeeeee K 
FORSSREC RSNO eeeeeere =X 
FORSSREC_RSN1 eeeeeere = §=6X 
FORSSUDF _R eeneeeee =X 
FORSSUDF “RN eererere§ =X 00 
FORSREAD_SN 4494 RG 1 
1SB$K_ST_TY_RSN = 00000014 
wor anma een en ewan es + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
S 00000000 ( 0.) 00 ( 0.) NOP IC USR CON ABS LCL 
FORSCODE 00000008 ¢ 11.) 01¢ 1.) PIC USR CON REL LCL 
¢oee meer ewe meme ran ee nane a ont 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00 +0 200.0 00:00:00.90 
posnens processing 119 00:00:00.61 00:00:04.58 
122 00:00:01.09 00:00:04.06 
eB table sort 0 00:00:00.19 00:00:01.01 
Pass 2 37 00:00:00.37 00:00:02.83 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 2 OF 8000 05 00:00:00.02 
Cross-reference output 0 ee St Se 00:00:00.00 
Assembler run totals 315 00:00:02.34 00:00:13.55 


The working set Limit was 1050 pages. 

5740 bytes (12 pages) of virtual memory were used to buffer the intermediate code. 

there were 10 pages of symbol table space oh jecates to hold 168 non-local and 0 Local symbols. 
130 source Lines were read in Pass 1, produci "t 8 object records in Pass 2. 

8 pages of virtual memory were used to define 1 macro. 


ee eee eee Dee ee Ome + 


Macro Library name 


-$255$0UA28: CFORRTL.OBJJFORRTL.MLB; 1 1 
“$255$DUA28:(SYSLIBISTARLET.MLB;2 0 
TOTALS (all Libraries) 1 


164 GETS were required to define 1 macros. 
There were no errors, warnings or information messages. 


os NOEXE NORD NOWRT NOVEC BYTE 
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FORRTL.S TF ORREADSN.MAR; 1 (3) 


EXE RD NOWRT NOVEC LONG 


MACRO/ENABLE =SUPPRESS1ON/D1SABLE= (GLOBAL, TRACEBACK) /LIS=L1S$:F ORREADSN/OBJ=OBJ$:FORREADSN MSRC$:F ORREADSN/UPDATE=(ENHS:FORREADSN) +L I 
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